Avoid assertion violation in directory-files

* src/dired.c (directory_files_internal): Make sure MATCH is
either nil or a string.  (Bug#33889)

diff --git a/src/dired.c b/src/dired.c
index b81e35384eab99f899084eb260d5e260e91619aa..3f5c93b57323264d57d31b56841a15228b2f934a 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -236,6 +236,9 @@ directory_files_internal (Lisp_Object directory, Lisp_Object full,
 #endif
     ;
 
+  if (!NILP (match))
+    CHECK_STRING (match);
+
   /* Loop reading directory entries.  */
   for (struct dirent *dp; (dp = read_dirent (d, directory)); )
     {